VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "BConfig"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit
Public Enum posUI
    SIMPLE_POS = 1
    MULTI_POS = 2
    RESTAURANTE_POS = 3
End Enum
Const STR_SIMPLE_POS As String = "SIMPLE_POS"
Const STR_MULTI_POS As String = "MULTI_POS"
Const STR_RESTAURANTE_POS As String = "RESTAURANTE_POS"

Private mvarTipoPos As posUI
Private mvarguardarHistorialSucesos As Boolean
Private mvarenviarMailSuceso As Boolean
Friend Property Let enviarMailSuceso(ByVal vData As Boolean)
    mvarenviarMailSuceso = vData
End Property
Friend Property Get enviarMailSuceso() As Boolean
    enviarMailSuceso = mvarenviarMailSuceso
End Property
Friend Property Let guardarHistorialSucesos(ByVal vData As Boolean)
    mvarguardarHistorialSucesos = vData
End Property
Friend Property Get guardarHistorialSucesos() As Boolean
    guardarHistorialSucesos = mvarguardarHistorialSucesos
End Property
Friend Function setTipoPos(ByVal vData As String)
Select Case vData
    Case STR_MULTI_POS
    mvarTipoPos = MULTI_POS
    Case STR_SIMPLE_POS
    mvarTipoPos = SIMPLE_POS
    Case STR_RESTAURANTE_POS
    mvarTipoPos = RESTAURANTE_POS
End Select
End Function
Friend Property Get TipoPos() As posUI
    TipoPos = mvarTipoPos
End Property



